subroutine hec_stats_epio_print c c print epio banks stats c implicit none c include'hec_stats_epio.inc' !epio banks stats c c print the epio banks stats c print *, ' ' print *, ' *** epio banks statistics' print *, ' number of banks read:' print *, ' run header .......... ', stat_runh print *, ' slow control ........ ', stat_slow print *, ' event header ........ ', stat_evth print *, ' beam chamber ........ ', stat_dwpc print *, ' adc ................. ', stat_adc c print *, ' fadc ................ ', stat_fadc print *, ' tdc ................. ', stat_tdc print *, ' ' c end